R Notebook

library(tidyverse)

Warning: package ‘tidyverse’ was built under R version 4.2.3Warning: package ‘ggplot2’ was built under R version 4.2.3Warning: package ‘tibble’ was built under R version 4.2.3Warning: package ‘tidyr’ was built under R version 4.2.3Warning: package ‘readr’ was built under R version 4.2.3Warning: package ‘purrr’ was built under R version 4.2.3Warning: package ‘dplyr’ was built under R version 4.2.3Warning: package ‘forcats’ was built under R version 4.2.3Warning: package ‘lubridate’ was built under R version 4.2.3── Attaching core tidyverse packages ──────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse 2.0.0 ──
✔ dplyr     1.1.2     ✔ readr     2.1.4
✔ forcats   1.0.0     ✔ stringr   1.5.0
✔ ggplot2   3.4.2     ✔ tibble    3.2.1
✔ lubridate 1.9.2     ✔ tidyr     1.3.0
✔ purrr     1.0.1     ── Conflicts ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
ℹ Use the ]8;;http://conflicted.r-lib.org/conflicted package]8;; to force all conflicts to become errors

library(CodeClanData)

Attaching package: ‘CodeClanData’

The following object is masked from ‘package:dplyr’:

    starwars

The following object is masked from ‘package:tidyr’:

    population

library(plotly)

Warning: package ‘plotly’ was built under R version 4.2.3
Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

game_sales

game_sales %>% 
  group_by(publisher, year_of_release) %>% 
  summarise(num_games_released = n()) %>% 
  plot_ly(x = ~ year_of_release,
          y = ~ num_games_released,
          color = ~ publisher,
          mode = "lines", 
          text = ~ publisher,
          hovertemplate = '<b>%{text}',
          showlegend = F) %>% 
  highlight(on = "plotly_hover")

`summarise()` has grouped output by 'publisher'. You can override using the `.groups` argument.No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter
Warning: n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
Warning: n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
No trace type specified:
  Based on info supplied, a 'scatter' trace seems appropriate.
  Read more about this trace type -> https://plotly.com/r/reference/#scatter
Warning: n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
Warning: n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors

game_sales %>% 
  group_by(publisher) %>% 
  summarise(avg_rating = mean(user_score)) %>% 
  ggplot(aes(reorder(publisher, avg_rating), avg_rating)) +
  geom_col() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

game_sales %>% 
  filter(publisher == "Nintendo") %>% 
  group_by(name) %>% 
  summarise(user_score = mean(user_score),
            critic_score = mean(critic_score)/10) %>% 
  arrange(desc(user_score)) %>% 
  slice_head(n = 10) %>% 
  pivot_longer(user_score:critic_score, names_to = "reviewer", values_to = "score") %>% 
  ggplot() +
  geom_col(aes(x = reorder(name, -score), y = score, fill = reviewer),
           position = "dodge",
           #fill = "lavenderblush2"
  ) +
  # geom_point(aes(x = name, y = critic_score),
  #            #position = "dodge",
  #            colour = "deeppink2") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1),
        panel.grid = element_blank()) +
  labs(
    title = "Top 10 Games Released by Selected Publisher",
    x = "",
    y = "Rating"
  )

game_sales %>% 
  group_by(publisher, platform) %>% 
  summarise(total_games = n()) %>% 
  ggplot(aes(publisher, total_games, fill = platform)) +
  geom_col() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

`summarise()` has grouped output by 'publisher'. You can override using the `.groups` argument.

game_sales <- game_sales %>% 
  mutate(platform_cat = case_when(
    str_detect(platform, "PS") ~ "Playstation",
    str_detect(platform, "X") ~ "Xbox",
    str_detect(platform, "Wii") ~ "Nintendo Wii",
    str_detect(platform, "GC") ~ "Nintendo Gamecube",
    str_detect(platform, "GB") ~ "Nintendo Game Boy",
    str_detect(platform, "DS") ~ "Nintendo DS",
    .default = platform
  ))

game_sales %>% 
  group_by(publisher, platform_cat) %>% 
  summarise(total_games = n()) %>% 
  ggplot(aes(reorder(publisher, -total_games, sum), total_games, fill = platform_cat)) +
  geom_col() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
  scale_fill_manual(values = c(
    "Xbox" = "darkgreen",
    "Playstation" = "blue",
    "Nintendo Gamecube" = "red1",
    "Nintendo DS" = "red2",
    "Nintendo Wii" = "red3",
    "Nintendo Game Boy" = "red4",
    "PC" = "black")
  )

`summarise()` has grouped output by 'publisher'. You can override using the `.groups` argument.

Games by publisher

colour_scheme <- c(
    "Xbox" = "darkgreen",
    "Playstation" = "blue",
    "Nintendo Gamecube" = "red1",
    "Nintendo DS" = "red2",
    "Nintendo Wii" = "red3",
    "Nintendo Game Boy" = "red4",
    "PC" = "black")

game_sales %>% 
  group_by(publisher, platform_cat) %>% 
  summarise(total_games = n()) %>% 
  plot_ly(y = ~ reorder(publisher, total_games, sum),
          x = ~ total_games,
          color = ~ platform_cat,
          colors = colour_scheme,
          type = "bar"
          ) %>% 
          layout(barmode = "stack",
                 title = "Number of Games Released by Publisher Across Each Platform",
                 yaxis = list(title = ""),
                 xaxis = list(title = "Number of Games released")
                 )

`summarise()` has grouped output by 'publisher'. You can override using the `.groups` argument.

game_sales %>% 
  group_by(platform_cat, platform) %>% 
  summarise(total = n()) %>% 
  ggplot(aes(platform_cat, total, fill = platform)) +
  geom_col() +
  geom_text(aes(label = platform))

`summarise()` has grouped output by 'platform_cat'. You can override using the `.groups` argument.